We use the data from the “Sonntagsumfrage” (Sunday survey) from infratest dimap. The institution regularly asks at least 1000 German citizens the question: “Which party would you choose if federal elections take place next Sunday?” The survey thus measures the current election tendencies and therefore reflects an intermediate state in the opinion-forming process of the electoral population.
To compare both bias metrics, the average value of a party in a medium is estimated.
biasDF.grouped <- biasDF %>%
group_by(medium,party) %>%
summarize(vis_bias1 = mean(vis_bias1, na.rm = T),
vis_bias2 = mean(vis_bias2, na.rm = T),
sent_bias1 = mean(sent_bias1, na.rm = T),
sent_bias2 = mean(sent_bias2, na.rm = T),
agenda_bias1 = mean(agenda_bias1, na.rm = T),
agenda_bias2 = mean(agenda_bias2, na.rm = T)
) %>%
ungroup()